Dream Season 1996 - Flor…a's National Championship/Florida's National Championship on CD-ROM - Dream Season 1996.iso/mac/Dream Season '96/Dream Season '96.DXR/00001_global scripts.ls

Text File | 1997-03-19 | 4.8 KB | 210 lines

on mouseDown
end

on mouseUp
end

on LPad s, n
  set n2 to the number of chars in s
  repeat with i = n2 + 1 to n
    set s to s & " "
  end repeat
  return s
end

on RPad s, n
  set n2 to the number of chars in s
  repeat with i = n2 + 1 to n
    set s to " " & s
  end repeat
  return s
end

on MakePath s
  set s to "DATA:" & s
  set c to ":"
  if the machineType = 256 then
    set c to "\"
    set n to offset(":", s)
    repeat while n > 0
      put "\" into char n of s
      set n to offset(":", s)
    end repeat
  end if
  return the moviePath & s
end

on startMovie
  global gTEXTSPRITE, gSTATSSPRITE, gROSTERSPRITE, gRECORDSSPRITE, gGAMESSPRITE, gPICTSPRITE, gVIDEOSPRITE, gAUDIOSPRITE, gPREVIEWSPRITE, gPREVIEWSPRITELAST, gMEDIAICONCAPTIONSPRITE, gMEDIACAPTIONSPRITE, gWORLDSTARTDATE, gWORLDENDDATE, gTEAMSTARTDATE, gTEAMENDDATE, gSLIDERSPRITE, gSLIDERTHUMBSPRITE, gSLIDERTHUMBTEXTSPRITE, gSLIDERTHUMBTEXTOFFSET
  CheckMachine()
  set the preLoadEventAbort to 1
  initRearWindow()
  set gWORLDSTARTDATE to 1909
  set gWORLDENDDATE to 1996
  set gTEAMSTARTDATE to 1909
  set gTEAMENDDATE to 1996
  set gSLIDERTHUMBTEXTOFFSET to -32
  set gPREVIEWSPRITE to 3
  set gPREVIEWSPRITELAST to 20
  set gSLIDERSPRITE to 27
  set gSLIDERTHUMBSPRITE to 28
  set gSLIDERTHUMBTEXTSPRITE to 29
  set gVIDEOSPRITE to 30
  set gPICTSPRITE to 32
  set gAUDIOSPRITE to 34
  set gTEXTSPRITE to 36
  set gSTATSSPRITE to 38
  set gROSTERSPRITE to 40
  set gRECORDSSPRITE to 42
  set gGAMESSPRITE to 44
  set gMEDIACAPTIONSPRITE to 47
  set gMEDIAICONCAPTIONSPRITE to 48
  repeat with i = 1 to 48
    set the visible of sprite i to 1
  end repeat
  ClearScreens()
  preLoadCast(the number of cast "goto menu sound")
end

on ClearScreens
end

on stopMovie
  global gPREVIEWSPRITE, gPREVIEWSPRITELAST, gMEDIACAPTIONSPRITE, gMEDIAICONCAPTIONSPRITE
  releaseRearWindow()
  set the fileName of cast the number of cast "MediaPicture" to "NULL.PIC"
  set the fileName of cast the number of cast "MediaVideo" to "NULL.MOV"
  set the fileName of cast the number of cast "MediaAudio" to "NULL.SND"
  set the fileName of cast the number of cast "ScoreBoardVideo" to "NULLMAIN.MOV"
  set n to the number of cast "Preview1"
  repeat with i = n to n + (gPREVIEWSPRITELAST - gPREVIEWSPRITE + 1)
    set the fileName of cast i to "NULL.PIC"
  end repeat
  repeat with i = gPREVIEWSPRITE to gPREVIEWSPRITELAST
    set the visible of sprite i to 1
  end repeat
  set the text of cast "MediaCaption" to "Media Caption"
  set the text of cast "MediaIconCaption" to "Media Icon Caption"
  set the visible of sprite gMEDIACAPTIONSPRITE to 1
  set the visible of sprite gMEDIAICONCAPTIONSPRITE to 1
end

on CheckMachine
  set OK to 1
  if the quickTimePresent = 0 then
    set OK to 0
  end if
  if OK = 1 then
    if the machineType = 256 then
    else
      openXLib("QTVersion.XFCN")
      if QTVersion() < 2.10000000000000009 then
        set OK to 0
      end if
      closeXLib("QTVersion.XFCN")
    end if
  end if
  if OK = 0 then
    if the machineType = 256 then
      open("QTINSTAL.EXE")
      quit()
    else
    end if
  end if
end

on initRearWindow
  global rwObj
  if the machineType = 256 then
    exit
  end if
  if factory("RearWindow") = 0 then
    openXLib("REARWIN.XOB")
  end if
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
  makeRearWindowObjIfNeeded()
  rwObj(mPatToWindow, -5)
end

on releaseRearWindow
  global rwObj
  if the machineType = 256 then
    exit
  end if
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
  closeXLib()
end

on makeRearWindowObjIfNeeded
  global rwObj
  if not objectp(rwObj) then
    set rwObj to RearWindow(mnew, "M")
    if value(rwObj) < 0 then
      exit
    end if
    if the freeBlock < rwObj(mGetMemoryNeeded) then
      if objectp(rwObj) then
        rwObj(mdispose)
        set rwObj to RearWindow(mnew, "S")
      end if
      if value(rwObj) < 0 then
        exit
      end if
    end if
  end if
end

on keyDown
  if (the key = RETURN) or (the key = ENTER) then
  else
    if (the key >= "0") and (the key <= "9") then
    else
      if (the key >= numToChar(28)) and (the key <= numToChar(31)) then
        ArrowKey()
      end if
    end if
    if the key = 0 then
      set the soundLevel to 0
    end if
    if the key = 1 then
      set the soundLevel to 1
    end if
    if the key = 2 then
      set the soundLevel to 2
    end if
    if the key = 3 then
      set the soundLevel to 3
    end if
    if the key = 4 then
      set the soundLevel to 4
    end if
    if the key = 5 then
      set the soundLevel to 5
    end if
    if the key = 6 then
      set the soundLevel to 6
    end if
    if the key = 7 then
      set the soundLevel to 7
    end if
  end if
end

on ArrowKey
  if the key = numToChar(28) then
  else
    if the key = numToChar(29) then
    else
      if the key = numToChar(30) then
      else
        if the key = numToChar(31) then
        end if
      end if
    end if
  end if
end